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1 . ABSTRACT 

The TC59 Random Exerciser Executive Routine is a series of 
utility and typeout subroutines designed to run in open 
interrupt mode. This Executive Routine also includes a 
system parameter input routine,, routines to keep a 24 hour 
clock and facilities to handle the PDP-9 standard processor 
interrupts. 

2 . REQUIREMENTS 

2.1 Equipment 

Minimum configuration PDP-9 

2.2 Storage 

The TC59 Random Exerciser Executive Routine occupies 

most of memory from address 0000 to 1777 and specifically 

utilizes the following memory locations, 

FROM TO PURPOSE 

00000 00003 Interrupt Handling 

00007 - Real Time Clock 

00020 0002\ CAL Handling 

000k0 00011 API Error JMS 

00100 00111 To communicate with other programs 

00200 02000 Program Storage 

3. LOADING PROCEDURE 

Place the ABS binary tape in the PTR 

Set ADDRESS to 1772^ 

Press I/O RESET 

Press READ-IN 

Repeat the above procedure for each program to be run 
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with the TC59 Random Exerciser Executive Routine. 
4. STARTING PROCEDURE 

4.1 Control Switch Settings 
(NONE) 

4.2 Starting Address 

The TC59 Random Exerciser- Executive routines starts at 
address //2//. 

4.3 Program and/or Operator Action 
Set ADDRESS to /2/p 

Press I/O RESET 

Press START 

The Program will type 

SELECT SYSTEM PARAMETERS 

TYPE IN 5 FOR 5/ OR 6 FOR 6/ CYCLE POWER 

Type in a "5" if the processor power is 5/ cycle or "6" if 

the processor power is fc/ cycle. Any other key will cause 

a question mark to oe typed and will be ignored. After 

registering the power cycle parameter the programs will 

type : 

API-Y FOR YES N FOR NO 

Type in an "N" if the system does not have an API option 

or if API is not to oe utilized. Type in a i! Y" for API 

to be enabled. Any other key will cause a question mark 

to toe typed and will be ignored. After registering the API 

parameter selection, the program will type: 
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SELECT MEMORY 
$ FOR 8K 

1 FOR 16K 

2 FOR 24K 

OR 3 FOR 32K 

Type the appropriate key for the amount of memory to be 
initialized. Any key other than pf to 3 will cause a 
question mark to be typed and will be ignored, 
At this point, the program will proceed to the drive 
selection typeout for the TC59 Random Exerciser, (Para- 
graph 4.3 of MAINDEC 9A-D4GA) 

After drive selection is completed, the following 
typeout will be issued by the RTC routine, 
DISABLE RTC 
TYPE IN TIME 

WHEN TIME IS REACHED ENABLE RTC 
TIME 

The RTC routine keeps track of time utilizing a twenty- 
four hour clock, (i.e., 1:00 P.M. is 13:00) and requires 
that four digits be Input) . 

Eight fifteen A.M. must be typed in as pf8:15. Two thirty 
P.M. must be typed in as 14:30. 

The TIME input routine will reject any characters that are 
not numeric (0 to 9), type a question mark and reset to 
receive four characters. Care should be taken to type 
in a valid time. 
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OPERATING PROCEDURE 

Operational Switch Settings 

With AC switches It and 17 both $ 3 the program will typeout 

the time every five minutes . 

Time will be typed on the ten minute marks if the switches 

16 and 17 are 01. 

With switches 16 and 17 set to 10 the time will only be 

typed at the half hour marks. 

If both switches are set to 1, the time will only be typed 

on the hour. 

ERRORS 

Most hardware malfunctions deleted by the TC59 Random 

Exerciser Executive Routine result in processor halts at 

specific addresses. 

ADDRESS EXPLANATION 

234 A program Interrupt occurred following an IOT 

instruction. 
236 A program interrupt occurred and no flag could 

be found to be a 1. AC = I/O STATUS 
336 A CAL Instruction was executed that did not 

equal CAL RANNUM or CAL* RANNUM 
1615 to 1655 API Channel unexpected interrupt channels. 
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00110 


000074 


CYCLEK 


00111 


017777 


UPCORE 


80112 


000000 


APIENA 
/ 



.TITLE MTEXEC 

.ABS 
/TC59 RANDOM EXERCISER EXECUTIVE ROUTINE 
/DESIGNED TO BE USABLE BY ANY DEVICE 
/ROUTINE HANDLES ALL M1N CONFIG 9 INTERRUPTS 
/ALSO cONGLOHeRaTION OF OPEN INTERRUPT TYPEOUT 
/ROUTINES aND TIME KEEPING V I a RTq 

/text routine handles 5- 7 ascii 

/type contents oct*l outputs ac [n g octal digits 

/Type 2 octal outputs ac 12 to 17 

/type 1 octal outputs ac 15 to 17 

/type 1 ascii outputs ac 10 to 17 

/TYP E CONT E NTS oe c IM*L TR E ATS AC AS 18 B f T UNSl G N E0 INT E GE R 

/ALL LOCATIONS uSED BETWEEN 100 AND 200 

/SHOULD BE OEFINED TO EACH PROGRAM 

/ 

/ 

/the contents of the following locations 
/will not change a^o must 8e defined 
/to any external peripheral t£st used 
/with this executive routine 

/ 

/THE ONLY LEGAL CAL INSTHSION IS FOR RANOOH NUMBERS. 



/TO GET TO TYPE TEXT 

/TO GET TO TYPE CONTENTS OCTAL 

/TYPE LOWEST 2 OCTAL 

/TYPE 15 TO 17 OCTAL 

/TYPE 1 ASCII 

/TYPE CONTENTS DECIMAL 

/TO SET UP KYBD REQUEST 

/TO GET RANDOM NUMBERS 

/JMS» RANNUM 

/CAL RANNUM 

/OR CAL» RANNUM ARE ALL LEGAL 

/ANY OTHER CAL IS ILLEGAL 

/*60 CYCLE MAKE»50 FOR 50 CYCLE 
/8K OF CORE GRTR IF EXTENDED 
/IF =400000 API EXISTS 



00020 






.LOC 


20 




00020 


000325 






GETRNM 


00021 


60034? 




JMP 


GETRAN 


00100 






.LOC 


100 




00100 


000351 


/ 

TYPTEX 






TYPET 


00101 


000431 


TYPCON 






TYPEC 


00102 


000454 


TY0CT2 






TY20CT 


00103 


000467 


TYOCTl 






TYlOCT 


00104 


000476 


TYASC1 






TY1ASC 


00105 


000507 


TDECIM 






TYDECI 


00106 


000574 


WKYBD 






GETKEY 


00107 


000263 


RANNUM 






RANGFN 



74 
17777 





.EJECT 
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0P113 


000255 


0fii4 


000261 


00115 


000254 


00116 


000254 


00117 


000254 


00120 


000254 


00121 


000254 


0P122 


001164 


00123 


000254 


00124 


000261 


00125 


000261 


00126 


000262 


0P127 


000254 


00130 


001551 


00131 


001536 


00132 


000251 



0f»133 



001501 



00134 


001607 


00135 


001570 


00136 


001610 


00137 


001971 


00140 


000261 


00141 


001472 


00142 


000235 


00143 


000255 


00144 


000000 



/ 



DEVTES NOTOEV 

DEVFLG NOFL*G 

GETDEV NODEVI 

RORTES NOOEV! 

PUNTES NODEVI 

TTYTFS NOOEV! 

PROTES NODEVI 

GETSYS SYSTEM 

EAETES NODEVI 

RDRFLG NOFLAG 

PUNFLG NOFLAG 

TTYFLG TTPUSY 

KBDTES NODEVI 

/TO OISMISS FROM TTY FLAGS 

/ 

TTYOIS XTTYPR+1 

K8DDIS XKBDPR+1 

LSTKEY CLRKBO 

/ 



/IN CASE OEV TEST NOT LOADED 

/DITTO 

/DITTO NO PARAMETER ROUT 

/NO ROR TEST 

/NO PUNCH TEST 

/NO TTY TEST 

/NO PROCESSOR TEST 

/NO SYSTEM GENERATOR 

/NO EAE TEST LOAOED 



/TO DISMISS PRINTER 

/TO DISMISS KEYBOARD o 

/TO NULLKBD AND OISMISS KBD FLG 



/TO STORE DEVICE TEST INTERRUPT ROUTINE 

DEVINT XOEVFL /STORE ADDRESS OF DEV INT ROUTINE 

/INDIRECT THROUGH DEV INT 
/FOR READER AND PUNCH TEST USAGE 



PUNINT 
RORINT 
PUNDIS 
RORDIS 
TELTES 



XPTPPR 

XPTRPR 

XPTPPR*1 

XPTRPR+l 

NOFLAG 



RDRSKP XFNOFL+11 
UNKNWN IOHALT 
DEVSTR NOOEVl+1 
DEVHNG 
/ 

.EJECT 



/HMH TO GO WHEN PUNCH FLAG*1 

/TO STORE READER FLAG RETURN AODRS 

/TO DISMISS EROM PUNCH FLAG 

/TO DISMISS FROM READER FLAG 

/TO CLEAR TELETYPE TEST ACTIVE 

/TO NOP ROR SKIP IF API IS ON 



'TTXFC 
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00200 
00200 
00201 
00202 
00203 

00 2 4 
00205 

00206 
00207 
00210 
00211 



00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 

00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 



/RUN PORTION 

/LOAD ALL PE 

.L 



70330? 

700004 

70770? 

1002 4 

7000 4? 
120122 

120115 
100604 

200112 
705504 



120U3 
120117 
120116 
120120 
120127 
120121 
120123 
100766 

140000 
700301 
70770? 
700314 
200000 
741?00 
60021? 
501656 
541657 
600?1? 
740040 



EXEC™ 



C* 
CL 
EE 
JM 
10 
JM 
JM 
JM 
LA 
IS 



OF EXECUTIVE 
RTINENT TESTS 
DC 2^0 
F 

OF 
M 

S CLRBSY 
N 

S» GE TSYS 
s » GEtDEv 
S GTTIME 
C APIENA 

A 



ROUTINE 

AND START AT 200 

/CLR ALL FLGS 
/TURN CLOCK OFF 
/ENABLE EXTENDED 
/CLR BUSY FLAGS 
/ENABLE INTERRUPTS 
/ GE T SYST E M PARAm e T e PS 
/GE T DEVICE PARAMETERS 
/START REAL TIME CLOCK 

/EITHER TURN API ON OR NOP 



/ 

/ 

/ROUTINE C Y C 

/OF JMS INST 

/ 

EXECLP JM 
JM 
JM 
JM 
JM 
JM 
JM 
JM 
ST 
02 
KS 
EE 
10 
LA 
SN 
JM 
AN 
SA 
JM 
HL 



/NOW DO 
PROINT 



LES IN The ne 
RU c TlONS To E 

S» OFVTES 
S* PMnTeS 
S* RHrTES 
S* TTYTES 
So KRDTES 
S* PROTES 
S* EAETES 
S TSTIME 
RING OF IOTS 
M 
F 
K 

PS 
C 
A 
P 


D 
P 

T 



xt series 

X FC UTlV E ROUTINES 



EXECLP 
(17777 
(PROINT+1) 
EXECLP 



JUST FOR CONFUSION 

/USE IOP 
/PULSES 
/I 2 AND 4 
/GET ADDRS 

/NO KEEP TESTING 
/ONLY LEGAL ADR 
/IS THE OBM+1 



00235 
00236 
00237 



700314 
740040 
600?36 



/INTERRUPT DURING IOT'S 

/ 

/INTERRUPTS COULO NOT FIND FLAG 

IOHALT IORS 

HLT 

JMP .-1 

.EJECT 



/RD STATUS 

/DISPLAY 

/CALLS FOR RESTART 



n r x r c 
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/ CL h 9«iSY FLAGS SET U 


a?2"0 


4 5> ^ ? ^ 


/ 

r: l p P s v 


XCT , 


0P241 


16 0114 




n^'» DFVFLG 


0P242 


16 012 4 




Di 2 ^* RnRFLG 


0<-'243 


1601 2= 




O^M* PUNFLG 


0" 2 44 


160126 




02"* TTYFLG 


0P245 


1 6 1 4 




OZM» TFLTES 


00246 


14 014 4 




D? M PEVHNJG 


00247 


120106 




JMSo WKYPD 


00250 


620240 




JMPo CLRPSY 


00251 


120106 


/ 

CLRK^O 


J"!S* WKYBO 


00252 


620131 




JMPo KRQDIS 


00253 


600251 


/ 

NODEVI 


JMP .-0 


00254 


400254 


XCT . 


00255 


620254 




JMPo NODEVI 


01*256 


400256 


NOTOEV 


XCT . 


00257 


140144 




0Z M DEvHNG 


00260 


620256 


/ 


J-iP» NOTOEV 


00261 


000000 


NOFL4G 





00262 


000000 


TTPUSY 

/ 

/ 






.EJECT 
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0W263 
■/ p 2 6 4 

00265 
00266 
0f 267 
00270 
f 2 7 1 
00272 
00273 
0f'274 
00275 
00276 
00277 
00300 
00301 
0f'302 
00 303 
00304 
00305 
00306 
00307 
00310 

0031 1 
00312 
00313 
00314 
00315 
00316 
00317 
00320 
00321 
00322 



400263 
200312 
54J660 
741.000 
600277 

201661 
04031? 
200311 
745100 
74400? 
740010 
040311 
220312 
340311 
060312 
200310 
740020 
360312 
4 310 
44031? 
620263 

000000 

123456 
000323 
654321 
361416 
055363 
546060 
243035 
76257? 
453237 
150?14 



/RANDOM NUMBER GFNER4TOR 

/SHOULD ONLY 9E ENTERED BY A MAINSTREAM PROG 

/AND NOT BY INTE D RUPT PROCESSORS 

/ 

PANGEN XCT , 

LAc RANrjF* 



RANTaD 



PANSAV 

/ 

RANCON 

randex 

RANT"L 



S AD 
SKP 
JMP 
LAC 
DAC 
LAC 



( r 4NtBL+10 



RANTAO-1 
(RANTBL 
PANOEX 
RANCON 
SPA!CLL 
STL 
RAL 

DAC RANCON 
LAC, RANOEX 
TAD RANCON 
DAC RANDEX 
LAC RANSAV 
RAP 

TAD* RANDEX 
OAC RANSAV 
IS? RANDEX 
JMPo RANGEN 


123456 

RANTBL+10 

654321 

361416 

055363 

546060 

243035 

762572 

453237 

150214 



.EJECT 



EOF 



! '. J ! -• f ' 



-'. 3I<0 
?"331 

007 "< 2 
0/333 
2 3 3 4 
00335 
•00 3 36 

00337 
00340 
00341 

00342 
? c 343 
00 314 
?.-' 345 
0, 34 6 
00 34 7 
003 c; 



k 1 ^ ?. p 
54166^ 

7 4 10 0? 

74004?" 

1 ? 6 3 
703344 
6203 2=- 

200020 

0<S0"*O^ 

201^64 

4 ■? ? ? 



0-0^ 



G t T C 4 L 



C 1 k ' '< N i 



PfGFN 



j m P « G f T P N M 

/CAL Cl^CT COMES HE-E BFSET 
E T R A N LlC 2 



-1 
CAi 



/GF" 



I? 



\? FQR 



/GF T C d. T E L T c OF IT 
/ M 1 ! s T : p 4 \ N ! x Ok ILLEGAL 
/ILLEGAL CAl wi.T 
/OK <: K ! P T '-. E HALT 
/GFT FAiVDO^ MUM a ER 
/CLEAR IL CASE A°l 
/RESTC= LINK EXTEND *OPE 
^XT CAL I NC i Re CT 
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'TExEC - TAPE 2 

'»Pr OUT ROUTINE p UN IN OPfN INTERRUPT HOPE 



00351 


4 3 5 1 


0-0352 


d 2 ^ P > 


00^53 


7 ~ -77-' 


0/354 


<: / 4 ? 7 


0/355 


: 00374 


t,0356 


^ 4 1 a * ~ 


00357 


10047' 


00360 


6?0351 



/F 

/r 
/'2 
/ A 



YPE T 
v T " R c 
IRST 
N c F X 
RTFS 

on c c 

A INST 
PET 



FVT 

BY 
FVIT 
IT = j 
2ND 
F TH 
RFAM 
X 



ROUT 
JMS 
= JMS 
MS + 2 
EXIT 
ESE 

MUS 
CT , 
; A f 7 
.Aii - 
"AC - 
j M F ■'- 

r »r ( 
>MS ~ 

JMP* 



I 1 E 

7YPET AC= ACCRESS OF TYPE OUT 
♦1 WH^N FIRST CHARACTER OUTPUT 

*HFN COMPLETE MfSSAGF IS OUT 

THERE M U ST RE A JMP xTTYPR + 1 TO OISMISS 
T vp F out oon T INES ARE RE-ENTRANT 
T MA 1MPIH. A T E A TYPEOLT BUSY F L A 



•■PTf 



Y1ASC 
TyPET 



/savf text a d = e s s 



/ R E S F T w C R c A I R C U >■ 

/GET FIRST CHAR OF MFSS 

/ C C A V E R T TO s -IT 

/START ITS OUTPUT 

/-""IRST EXIT MESSAGE STARTED 



00361 
00362 



100374 

5 4 1 * 6 6 



/ 

/A 

/! 

/» 

T Y 



FTER EVERY TTY INTERRUPT T«E PROGRAM STAYS 
N TYPLUP UNTIL END OF "ESSiGE 
FTURN FROM FIRST C^AR INTERRUPT IS TYPLUP 
PL'JR JMS GETCHR /GET NEXT CHARACTER 

SAD (177 /DELETE CODE 



n^xFC 
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00363 


600372 




JMP TYTXlT 


00364 


741200 




SNA 


0?365 


600361 




JMP TYPLUP 


PP366 


341665 




TAO (2('0 


00367 


100476 




JMS TY1ASC 


00370 


601551 




JMP xTTyPR+1 


00371 


600361 




JMP TYPLUP 






/EXIT END 


OF MESSAGE M 


00372 


440351 


TYTXIT 


IS? TYP E T 


00373 


620351 




J M P« TYPET 



/YES END OF MESSAGE 
/00 CHARACTER 
/YES DONT TYPE IT 
/CONVERT TO ASCI I 
/START OUTPUT 

/RETURN OUTPUT START DISMISS 
/RETURN TTY INT GET NEXT CHAR 
MESSAGE MaIN STRF.aM MUST JMP XTTYPR*1 
/SO fXIT eOM 

/wi LL be Enter ♦? 



.EJECT 



•:' ■ T 7 t 


" -' 4 .' : 


.'. T7 7 


; .;.:?' 


?.. 40 




401 


; - ; <: / '- 


01 402 


? r ' i .~ * 


0t 4? 3 


s^i" ; 


i 4 ? 4 


4^ijt 


3/405 


7 7 7 ' : T ; 


0''406 


^ <: ;: " 


00407 


7 7 7 7 7/ 


00410 


040430 


4 1 1 


2004?= 


00412 


74001? 


00413 


4 4 4 3? 


00414 


6 0"' 7 


00415 


5 1 6 6^ 


0041 6 


6 ? " 7 4 


00417 


04045= 


0P47? 


200174 


00 4? •. 


7-00f- 


00422 


4 <: 2 4 


0F423 


6004H 


0(7424 


000000 


00425 


00 7;^ 


00 4 26 


000000 


P 4'7 


0/00 


00430 


000000 



-MP£ 



; H ■'. p T R 

C m D P T : - 

i T m A I f 



PA IRCT 



NUCF5R 


LAI- 17770 




DAT TE-PFR 


C- E T B C K 


LAC RTHALF 




RAL 




IS? TE^PFR 




jmp -ftmpf 




iUV <1 7 7 




. i '■< P a G c T r ~ 



PAC 
IMP 



L F - A L F 



FTHA'.F 





C M "■ p T F 





PA IP0T 





TEMPER 






1 T r XFC 
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00431 
00432 
00433 
00434 
00435 
00436 
00437 
004 40 
00441 
00442 
00443 
00444 
00445 
00446 
00447 

00450 
00451 
00452 
00453 



00454 
00455 
00456 
00457 
00460 
00461 
00462 
00463 
00464 
00465 
00466 



400431 
040571 
742020 
742020 
742020 
04057? 
742020 
7420-20 
742020 
100454 
620431 
20057? 
1 00 454 
601551 
200571 
100454 
6 K 1551 
440431 
620431 



400454 
040573 
742020 
740020 
100467 
620454 
200573 
100467 
601551 
440454 
620454 



/ 

/TYPE CONTENTS OCTAL ROUTINE 

/ 

TYPEC 



XCT 
OAC 
cTR 
RTR 
RTR 
DAC 
RTR 
RTR 
RTR 

J MS 
JMP, 

LAC 
JMS 
JMP 
LAC 
JMS 
JMP 
IS? 
JMP. 



TYP E CT 



TYPECT n 



Y? Q C T 

TYPEC 

YPECT n 

Y20CT 

TTYpR+1 

yPECT 

Y?0CT 

TTYPR+1 

YPEC 

TyPEC 



/S*Ve L£AST SIG 6 

/HOVE M IDO L E 6 OVER 

/AND SAVE MIDOLE 6 

/MOV E MOST SlG 6 OVf.R 

' A N D ST*RT first 1 QUT 
/RETURN FIRST OF 2 START TYPE 
/RETURN j CHAR COMPLETED 
/ST A RT 2ND 2 CHAR OUT 
/RETURN FjRST of 2n° 2 STARTED 
/RETURN ? MORE CHAR FINIS 
/START OUTPUT LAST 2 CHAR 
/DIMISS FROM LAST OF 2ND 2 
/EXIT JMS +2 WHEN 
/ALL 6 DIGITS ARE OUT 



HE JMS TO TYPEC MUST BE FOLLOWED BY JMP XTTYPR+1 
OMETIME AFTER END OF 6 CHARACTERS RETURNEO 



/ 

/T 

/S 

/ 

/T 

/U 

TY20CT 



YPE 2 OCTAL CHARACTERS 
Se TYPfC ROUTINE AS AN 



EXAMPLE FOR USING TY20CT 



XCT 


, 


DAC 


TYPECT+2 


RTR 




RAR 




JMS 


TYlOCT 


JMP» TY20CT 


LAC 


TYPECT+2 


JMS 


TYlOCT 


JMP 


XTTYPR+1 


IS? 


TY20CT 


JMPt 


> TY20CT 



/SAVE LEAST SIG 
/MOVE MOST SIG3 



3 BITS 
OVER 



/output 1 octal digit 
/return immed after tls 
/return after interrupt 
/output 2nd character 
/dismiss from first 
/step ty2 exit 
/exit both char typeo 



.EJECT 



"XF ~ 



c a r, e 



10 



46? 
'4 70 

■•47! 
'4 7? 

•47' 

.'474 

4 75 



• t v • c r - 
; » TviOC' 



rv?or T t? eXa,» 



• lie 



/ m a s k e f r 3 p I * c 

/CGNVEPT TO ASC; : 
/ S 4 A R T OUTPUT 

. --r^jSN CUTPUT STA°Trr 
/RE "URN OUTPUT COM c L E 1 
/EX.' T 1 CCTAL CMAR T-- : 



/Tip r 
/USt 



;rn c-^ract£ c 



ro*\'cr EXAMPLE? 



^ 7 6 
00477 
00500 
00501 
0050? 
50 3 
00504 
00505 
.'750 6 



400^76 
700406 
?007 t 

4 1 5 5 * 
62047* 
000504 
7 4 0" 
44047^ 
6 704 7' 



XCT , 

TLS 

LAC TY1RFT 
OAT X T r y P R 
j M P o T v i a s ' 



TCr 
IS? 



TY1.ASC 
T v i AS" 



/START OUTPUT ChAR 

/SET UP !NT RETURN 
/EXIT CHAR STA e TPO 
/TO RETURN FRO" INT 
/CLP tmr, IN CARE 'AST 
/STe p Fx!T I -. I PEC ■'". 

/pxiT charac t e° printe: 



' N • 



:H 



00507 
0: 510 
7 511 
07512 

7 513 
514 

0/515 
00516 
00517 
00520 
0P521 
5 22 
00523 



4 5 7 
040 = 6 7 

777777 
04 4 3 
4 0-71 

2 1 6 7 1 
4 05 7 2 
10054J 
060 c 72 
777777 

3 4 5 7 ? 

4 4 4 3 v* 
600515 



/ 7 \ I ." 

/CO^V 
/FIRS 
TYDEC 



RRT TG >■ OECI 

T LPO D CONVERTS TO 6 

I XCT , 

OAf T v OuOT 

LAW - 6 

DAC TEMPER 

OAC TYFECT 

LAC (DUHAR6 

TYDLU'P OAC TYRECT + 1 

JMS TYVEPT 
OACo TYPECT+1 

LAW -1 

TAf TYPECT*! 

IS? TEMPER 

jMP TY7LUP 



Si ONE''" NU^E~ 

Al. r I G i TS ANO OUTPUT 



1 SC E I CHA p ACTERS 



:ject 
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/ 
/ 

/2"> : C LOO 


P OUTPUTS 6 CHi 






/ G F N c" '- * T 


FD by 


FI°ST LOO 






/AFTfP f 


ifRST CHARACTER 


00574 


22057? 


TYDOUT 


LAC" 


■ TYPECT+! 


ffp5?5 


445557? 




IS? 


TY°ECT*1 


0/526 


440^71 




IS? 


TYoECT 


00527 


100476 




JMS 


TyiASC 


00530 


620507 




JMP« 


► TYOfCI 


tfi(?53l 


22 572 




LAC TYPF_CT + 1 


00532 


100476 




JMS 


TY1ASC 


00533 


601551 




JMP 


x TTvPR+i 


00534 


440572 




IS? 


TYPECT +1 


0^535 


4405 7 1 




IS? 


TYPECT 


00536 


600531 




JMP 


.-5 


35-537 


440507 




IS? 


TyDECI 


00540 


620507 




JMP« 


> TY0EC1 






/GENERATE 1 DECIMAL CHA 






/TYQ'IOT: 


18 BIT 


' UNSIGNED 


00541 


400541 


TYVERT 


XCT 




00542 


200562 




LAC 


TYOUOT 


00543 


140562 




0?M 


TYQUOT 


5 4 4 


740100 




SMA 




00545 


600552 




JMP 


TVRTPL 


00546 


440562 




IS? 


TYQUOT 


00547 


341672 




TAP 


(-12 


00550 


74U00 




SPA 




0P551 


600546 




JMP 


.-3 


00552 


341672 


TVRTPL 


TAD 


(-12 


00553 


741100 




SPA 




00554 


600557 




JMP 


. +3 


00555 


44056? 




IS? 


TYOUOT 


00556 


60055? 




JMP 


TVRTPL 


00557 


3 4 1 6 7 3 




TAD 


(1? 


00560 


341670 




TAD 


( 260 


00561 


620541 




JMPe TYVERT 



= :- Z T E R S 

p 

OUTPUT RE-ENTERED By INTERRUPTS 
/GET FIRST OF 6 
/STEP AORS 
/AND ChAR COUNTER 
/START OUTPUT FIRST 
/FX[T FIRST CHAR STARTED 
/RFTURN FIRST CHaR DONE 
/START OUTPUT NEXT 
/DISMISS FROM LAST 
/STEP ADORS FOR NEXT 
/DANE 6 

/NO START OUTPUT NEXT 
/STEP ENTER 
/EXIT AH 6 OUTPUT 

R A C T E R 
NUMBER 



.EJECT 



-<Tf XFC 



C PAGE 


1? 


00562 


000007. 


00563 


00 00 


V 5 6 4 


00 05". 


00565 


00 00 00 


00566 


000000 


00567 


000000 


00570 


000000 


0C571 


000 a 00 


0P572 


000000 


00573 


000000 


00574 


400574 


00575 


200*00 


00576 


041535 


00577 


620574 


00600 


000601 


00601 


440574 


6 2 


70031? 


00603 


620574 



TYOUOT 

PCH4"1 



0OA06 
TYPE CT 



/SET UP 
GETKFY 



KyPRET 



/MAIN S 
/ 













FOR KEYBOARD INPUT ROUTINE 
XCT . 
LAC 
OAC 
JMP 
.+1 

IS? GETKEY 
KRP 
JMP 
TREAM 



KYRRFT 

XKPQPR 

» GFTkEY 



GETKEY 
MUST DEPREAK 



/WHEN KBO FLAG=1 
/COMF MERE TO PROCESS 

/EXIT SET UP COMPLETE 

/KRO FLAG=1 GETS US MERE 
/READ KYRO BUFFER 
/EXIT EnTR+2 AC=ChAR 
BY JMP xKBDPP+1 



/ 

/MTEXEC - TAPE 3 

/RFAL TIME CLOCK ROUTINES 

/GET CURRENT TIME AT STA^T AND TURN CLOCK 

/MANTLE RTC INTERRUPTS KEEP T[m E 

/TYPF OUT TIME EVERY 5-10-30 OR 60 MINUTES 



ON 



00604 


400604 


GTTIME 


XCT . 


00605 


220126 




L AC» TTYFLf, 


00606 


740200 




S2A 


00607 


600605 




JMP ,-? 


00 610 


777777 




LAW -1 


00611 


04101? 




DAC TMTYPO 


0^612 


060126 




OAC* TTYFLG 


00613 


201372 




LAC TIMTEX 


00614 


120100 




JMS» TYPTEx 


00615 


620604 




JMP» GTTIME 



/telftype busy 
/yes wait for it 

/set typing time active 
/set priter active 

/start time request 
/exit before typed 



.EJECT 



'Ti- XFC 
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/RFTURN HERE AFT^R TIME TEX 


v 6 1 6 


777774 


f, T T I M 4 LAW 


-4 


0f 61 7 


040706 


OAC 


MINUTE+1 


00 6?0 


20070 1 


LAC 


TE^HR-l 


00621 


040707 


D A C 


MIMUTe*2 


05- 622 


120106 


JM S « 


w KyBD 


0P623 


601551 


JMP 


XTTYpR+1 


00624 


600*27 


JMP 


TESVAL 


0! 625 


1?01 06 


JMS< 


WKYRO 


j. p 6 ? 6 


6pl536 


JMP 


XKRDPR+1 


00627 


060707 


TEsV'l oac * minUT*-*? 


0(^630 


04H 54 


DAC 


SaVMIN 


00631 


501 674 

541670 


AND 


(360 


SAD 


(2 60 


00633 


600640 


JMP 


. +5 


00634 


201451 


LAC 


TYQU E S 


00635 


1201 00 


JMS, TVPTEX 


00636 


620132 


JMP* LSTKEY 


0p637 


600616 


JMP 


GTTJM4 


00640 


777775 


LAW 


-3 


v 6 4 1 


54 7 06 


S A0 


MIM UT E+1 


00642 


76027? 


TMCOLN LAW 


272 


00643 


440707 


ISZ 


MIMUTE+2 


0f?644 


440706 


ISZ 


MINUTE+1 


00645 


600673 


JMP 


TSCQLN 


00646 


160126 


D£M<t TTvFLG 


00647 


760000 


LAW 





0P650 


04101? 


OAC 


TMTYPD 


00651 


200110 


LAC 


CYCLEK 


00652 


740001 


CMA 




00653 


040007 


OAC 


7 


00654 


200711 


LAC 
/ 


RTCRFT 


00655 


041516 


DAC 


XCLKPR 


00656 


200112 


LAC 


APIENA 


00657 


740100 


SMA 




00660 


600665 


JMP 


. +5 


00661 


2016 7^ 


LAC 


(JMS XCLAPI 


00662 


040051 


OAC 


51 


00663 


201676 


LAC 


(NOP 


00 664 


741000 


SKP 




00665 


201677 


LAC 


(CLSF 


00666 


041461 


OAC 


XFNDFL 


00667 


700044 


CLON 


00670 


777704 


LAW 


-74 


00671 


040710 


DAC 


RTCDEX 


00672 


620132 


JMP 


> LSTKEY 



IS FULLY TYPED 

/TO COUNT 4 

/TO STORp " 
/ W AI T FOR KyBO FLG 
/OISmISS l a ST TTY CHAr 
/SEE IF VALID NUMBER 
/WAIT FOR NEXT INPUT 
/DISMISS LAST 
/ S AVE C h ArACtEr 
/IN CASE ITS LAST 

/WITHIN NUMBERS MAYBE 

/YES 

/NO 

/TYPF QUFS MARK 

/DISMISS KYBD FLG IGNORE PREMATURE KE* 

/TRY 4 NEW ONES 

/JUST INPUT 2ND 

/YES 

/STEP STORE AOORS 

/GOT 4 YET 

/NO SEE IF 2ND 

/CLR PRTR ACTIVE 

/SET WAIT NEXT MINUTE 
/l COMP TO RTC 
/FIRST INCREMENT IS 
/TO SYNCHRONIZE 
/SET UP RTC INT 



/TO PROCESS 

/API EXIST 

/NO 

/YES SETUP 

/FOR API INTERRUPT 



/DONT CLSF IF API ON 
/TURN CLOCK ON 
/EXIT 

/DISMISS LAST KBO FLAG 



.EJECT 



iFC 



''AGE 



14 



006 73 
00 6" 4 

0. 676 
■3: 677 
.'. 7^0 
? 7 i 
. • 7 2 
0" 7 3 
00 70 4 
00705 
00706 
00707 
00710 



540645 
7 4 1 <? ;• 

i ? a : 4 

600" 3? 

6 6 2 3 

0" ? 
0' 6 

00026^ 

7 ? 6 <* 

00 0?60 

777774 
7 0? 
777704 



r SCCL 



TENh« 
HOljS 
T E N M ! N 

M J N: U T F 



PTCDFX 
/ 



SAT T M;'OLM 

SKP 

jmP -r$VAL-2 

.,«« TvAFCI 

JMP« L'-TXF"' 

jMP 0T T IK4+4 

A 

260 
260 
26" 

LAW - 4 
TEN'HR 
LAW -74 

.EJECT 



/2-ND 'OAR INPUT 

/YES 

/.NOT 2ND WA[T NEXT 

/TvPr COLOW 
/DISMISS 2ND INPUT AND PREMATURE KRD 
/COLON TYPED GF T 3RD CHAP 



^"711 


2 Z ■ 1 ? 


''"71 2 


4 4 2 7 17 


7 :■ 7 1 .j 


6 7 - 6 :* 


7. "714 


7 7 7 7 7-1 


.•'"715 


2 4 7v' 


7 ." 7 1 6 


4 4 2 7 2 - 


i<n\i 


7 7 7 = 7 .. 


27770 


34072= 


07771 
7 7 j 2 k 


7 4 110'? 


a2075 7 


?. '■' 7 7 3 


201*70 


27774 


74070= 


2 7 7 7 5 


4 4 7 4 


2?7?6 


7 7 7 5J? 


dV 727 


3 4 7 4 


2 7 7 3 


74 1107 


7 7 7 71 


6 7 7 5 7 


27733 


201070 


2 7 7 7 7 


040704 


7 7 7 3 4 


4 4 7 01 


'5* 7 7 3 5 


7 7 7=0* 


27 73 6 


3 4 7 3 


■77737 


7 4 1-07 


7 .-740 


600 7 44 


7; 741 


2 7 1. 6 7 


21 74 2 


4 7 7 


27 743 


440 70" 


27744 


7775-4 


2','745 


340707 


2 7 7 4 6 


740700 


27747 


600757 


27 750 


777516 


37 751 


34070? 


7 7 7 5 2 


741107 


'27 753 


6707=7 


0P754 


2 7 1 6 7 7 


27755 


040707 


77756 


040707 


2?757 


1 1 7 1 7 


'XI' 760 


2001 11' 


77761 


7 4 7 01 


07762 


040007 


27763 


440007 


27764 


700744 


27765 


601517 



/RFAL 1 
/ 7 H E 7 K 



FTCX ! T 



••£ CLOC* 

)R sfcpn-- 

. +1 

15? PT- 0F X 

IMP R T " X ; T 

LAw -7- 

047 PT-QFX 

:3? Ml'vUTE 

LAV. -^7 2 

T*r. Mp;UTE 

SPi 

JMP PTTXIT-1 

L Af- (760 

DAC NP'utE 

IS? T E ■' ! M I N 

LAW - 2fr6 

T 4 7 T £ ».. M I N 
SPl 

, m c p T 7 X : T - 1 

! . A r: (2*0 

Oil" TE'. w : ? -. 

i 5 ' HQ'lR 

i. a * - 2 7 2 

TiQ HOUR 
S = A 



.uTri 



LAC 


(260 


OAC 


HOijR 


IS? 


TENHR 


LAK 


-2*4 


T40 


HOUR 


SZA 




JMP 


RTCXIT-1 


LAW 


-262 


TAD 


TENMP 


SPA 




JMP 


RTCXIT-1 


LAC 


(7*0 


DAT 


HQuR 


OAC 


TENMR 


JMt 


T 0V'MN& 


LA7 


C v - L F * 


r m s 




DAC 


7 


IS? 


7 


CLON 


JMP 


XCLKPR+1 



/ONr .^INUTf IS SKIP 

/REq c T 

/60 c £CONC COUNTE- 



/GONF PAST 9 MINUTES 
/MO 

/cE T '•'^UT^ T° e 

/ + 1 T F N H i N T r c N T r R 

/gOnf past 60 minutes 

/NO NC< -OUR YfT 

/SfT T r>i MINUTFS TO 7 
/+1 HOUR COUNT 



■'HOUP '"OUNT PXCEFD 9 
/NO TEST FOR 24 



/RESFT HCUf TO 
/+1 TEN HOUR 



/AT 4 4 HOUR INCREMENT 

/NO 

/YES SFE IE 2400 

/H0L)PS = 24 
/MO 

/RESET TIME 
/TO ! 



/RESFT 1 SECOND RT f 
/TO 7 COMP CYCLES 
/EN4PLE CLOCK 
/DISMISS 



.EJECT 



Ur'XFC 
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/SFE If 


IT IS TIME FOR 






/OR IF 1 


T IS PAST LAST 


0?766 


40076ft 


TST I"E 


XCT . 


0? 767 


2?1?12 




LAC TMTYPQ 


0?770 


74020? 




SZA 


0?771 


601^73 




JMP TSPAST 


0?772 


20070* 




LAC MINUTE 


0?773 


54167? 




SAD (260 


0f 774 


601052 




JMP TES510 


017775 


54170? 




SAO (265 


0?776 


741000 




SKP 


0?777 


620766 




JMP» TSTIMP 


01 000 


750004 




LAS 


01001 


501701 




AND (3 


01002 


740200 




SZA 


01003 


620766 




JMP* TSTIMF 






/TIME TO 


TYPE THE TFST 


01 004 


220126 


TYTIME 


LAC* TTYFLG 


01005 


741200 




SNA 


01 006 


601105 




JMP TYTMOK 


01 007 


141012 




qHM TMTYPq 


01 010 


44101? 




IS? TMTYPD 


01011 


620766 




JMP* TSTIMF 


01012 


00000? 


TMTYPQ 


? 



5-H2-30 OR 60 MINUTE TYPEOUT 
TIMF TYPED CLR TMTYPD 



/TIME TYPEOUT ACTIVE 
/YES TEST HOW ACTIVE 

/AT A TEN MINUTE POINT 

/YES CHECK TIME SWS 

/AT A 5 MINUTE 

/YES 

/NOT 5 OR 10 EXIT 



/TYPF EVERY 5 
/NO WAIT FOR TEN 
PRINTER ACTIVE 

/PRINTER ACTIVE 
/NO START TYPEOUT 

/PRINTER ACTIVE SET WAITING 

/TRY AGAIN NEXT PASS 

/=0 WAITING TIME 

/=1 WAITING TYPEOUT INACTIVE 

/=777777 TYPING TIME 

/=760000 WAITING NEXT MINUTE 



.EJECT 



■ 015 





10U 


6 ■■> i 2 ' 




<01? 


7 - 7 7 7 7 


2 


' 0?2 


04?144 





1 02' 


6 2 I »' 1 3 


•V 


' 022 


2 ■' 2 " 1 2 


7; ■ 


'?;■? 


74070- 


'• 


■ 2 : 2 4 


040707 


2 


•025 


4 4 2 2 7 


2 


■ 0?e 


7 2 t I 2 


3- 


.e?7 


720207 


A' 


' 3 a 


700204 


■ 


i 031 


2P211? 


?:■ 


'032 


705 c 04 


■A- 


'033 


700244 


A- 


i 034 


7 2 A ? 


'/' 


'035 


7077!?? 


■A- 


036 


777777 


0i 


037 


6 1 2 6 


01 


4 


20143V 


31 


041 


12010? 


0i 


04 2 


62-1247 




043 


1"0242 


0< 


244 


221 73? 


2- 


045 


041 =4f 


?,' 


046 


6?0i 4' 


7 * 


047 


7 7 7 7 


0i 


050 


4 4 12 1 2 


/Si 


0=1 


62076* 



■r?~ 



'■AC 
' S 7 
"AF 
I OF 
,LOF 

-*C 
I S A 

:lc>. 
on 

EM, 
At. 
AC 
AC 
MS 
HC 
MS 
AC 
AC 
jMP 1 

:e* 

! Sr 

IMP, 



AP i £NA 



-1 
* T T Y r L C- 

Ori'.'GTX 
« TYPTf X 



/ r, t T 


*- U !"■; '- F i_ 4 


u 


/*A2 


jT Sf TN, 


C L £ A f- 


/NOT 


2 73 - Ml 


N2TE5 


/RF'i- 


T HUNG r 


LiG 


'fT 


NOT F V 


;-■ 'J N f- 


/GCT 


~ W R 




/OCL 


F S 





/RFSFj R T C 
/PWR CLR STOP ALL 
/OISARLE INT 
/AND CLOC 

/rE enable in tru p ts 
/clock on again 



/SET TTY PUSY 



/START TYPFOUT 

/HANG HERE UNTIL DONE 

CLRBJV /CuEAP-MAJOR RESTART 

( .+3 no GET BACK FMSMISS 

YTTYPC 
QFVST= /RESTART DEVICE 



TMTYPQ 
> T=T!Mt 



/TYPE OUT THE TJKf. 



.eject 



•1 T F X F C 
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01052 


750004 


01053 


501701 


01054 


741200 


01055 


601?34 


01 056 


541703 


010 5 7 


601004 


01 060 


200704 


01061 


541670 


01 062 


601004 


01063 


541704 


01 064 


741000 


01065 


620766 


01066 


750004 


01067 


501701 


01070 


541705 


01071 


601004 


01 072 


620766 


01073 


740100 


01 074 


601004 


01075 


740001 


01076 


741200 


01077 


620766 


01 100 


200705 


01 101 


541154 


01 102 


620766 


01 103 


141012 


01 104 


620766 


01 105 


777777 


01 106 


04101? 


01 10? 


060126 


01 110 


200007 


01 111 


740001 


01112 


741200 


01113 


601110 


01114 


200702 


01115 


041151 


0<116 


200703 


01 117 


041152 


01 1?0 


200704 


01 121 


041153 


01 1?2 


200705 


01123 


041154 


01124 


777774 


01125 


041155 


01126 


201150 


01127 


041156 


01130 


201431 


01131 


120100 


01132 


620766 



/AND A Tf-N M1NUTF MAPK CHECK SWS 
TES510 



/SEE STAGE 
TSPAST 



/PRINTER 
TYTMOK 



LAS 

AND (3 

SNA 

JMP TYTIME 

SAO (1 

JMP TYTIME 

LAC TENM1N 

SAO (260 

JMP TyTIME 

SAD (263 

SKP 

JMP» TSTIMF 

LAS 

AND (3 

SAD (2 

JMP TYTIME 

JMP* TSTIME 

OF TYPEOUT IS 
SMA 

JMP TYTIME 
CMA 
SNA 

JMP* TSTIMF 
LAC MINUTE 
SAO SAVMIN 
JMP* TSTIME 
02M TMTYPD 

JMP* TSTIMF 
IS IN ACTIVE OK TO 
LAW -1 
DAC TMTYPD 

DAC* TTYFLG 

LAC 7 

CMA 

SNA 

JMP 

LAC 

D AC 

LAC 

DAC 

LAC 

OAC 

LAC 

DAC 

LAW 

DAC 

LAT 

DAC 

LAC 

JMS* 



. -3 
TENHR 
SAVTIM 
HOUR 

SAVTIM+1 
TENMIN 
SAVTIM+2 
MINUTE 
SAVMIN 
-4 

SAVMIN+1 

SAVTIM-1 

SAVMIN+2 

TIM£TX 

TYPTEX 

JMP* TSTIMF 



/TYPE EVERY 5 

/YES 

/TYPE EVERY XI 

/YES 



/ALWAYS TYPE ON THE HOUR 
/AT A HALF HOUR MARK 
/YES 



/TYPF ON THE HALF HOUR 
/YES SEE IE PRTR ACTIVE 

BEING WAITED ON 

/WAITING PRINTER IN ACTIyE 
/YES SEE IF READY 



/IN PROCESS OF TYPING 
/YES WAIT UNTIL DONE 
/TIMF HAS BEEN TYPED 
/IF ONE MINUTE HAS ELAPSED 

/which it hasnt get out 

/clr time typed flag 

/wait fop next typeout 
type time 

/set active typing time 
/and printer active 

/wait for more 

/than 1 clock slop 

/before saving current time 

/save ten hour 

/HOUR 

/TEN MINUTE 

/AND MINUTE TIME 

/SET UP TO 

/OUTPUT THE 4 NUMBERS 



.EJECT 











i 7 t 


2 7 1 1 5 . 


.' 


1 3 7 


1??'. 7 i 


7 


1 4g- 


6 ? 1 - 5 ' 


,' 


1*1 


4 4 i ; ~ i~ 


>: 


1*7 


««;':■' 


7; 




6 "' i « 7 "■ 


0" 


1 tt, 


7^0i?0P 


V; 


1*5 


2*1 : -' l ? 


i 


1*6 


:*-/■ ? A 


'I 


147 


6 7 i - 5 1 


?■ 


1 = 


C* 1 ' 7 1 


/: 


151 


? 2 £ " 


i 


152 


ZPP2( : ? 


f 


1 c 3 


3?K?6C 


■'■■ 


174. 


7 V ■> 7 f ? 


f, 


1 = 5 


inn & 


i' 


156 


2 '? 1 * 5 ' 




1 5 7 


•< f 1 ' = 7 


«- 


16K 


7 1 y 7 7 p 




1£1 


i ? «* : ,7 ■'- 


■?• 1 


lis 2 


6 p • 1 - - ' 


01 


if 7 


621 1 = ~ 



<;tvT ! « 



' 4 C C" 



! S ? S A v M 1 

_;MF TM T Y V 

Li* P 

p A r i»- v i 



?6f 

?6C 

pes 7 

767 

LA* -4 
S A V T I M 
XCT . 

LA- 77 7 
J M F « T v A S C -i 
„■ * P X T T Y F R + 1 
j M P * TvrOL K ; 



.'2 '.(turu; SlC 1 
/ vFS ~ ■ •'- "7L Of 
/ r, r T 7 >' '": ! G ! 7 

/STa°T tyff 
/ u | S •- ! S S v _ A c T T T v ■ N T 
/ ] N 7 » ' F c N E y T 

.■ t y c r n 4 

".0 ! V L tit " 

/SET T v p f :j w A j T r ,/■- ■ f. 
/C15 FF[t;lrH ACT !-.-!■; 
/OISMlSLtST PLi& 



.EJECT 



'T^XFC 



3 AGE 20 



01 164 
01 165 

116 6 
0116 7 

01 170 
01 171 
01 172 

01 173 
01174 
01175 
01176 
01177 
01200 
01201 
01202 
01 203 
01 204 
01 205 
01 206 
01 207 
01 210 
01 211 
01212 
01213 
01214 
01215 
01 216 
01217 
01 220 
01221 
01222 
01223 
01 224 
01225 
01226 
01 227 
01 230 
01231 
0-232 
01273 
01 234 
01235 
012 3 6 
01 237 

01240 

1 241 
01242 
01243 
01 244 
01245 
012 4 6 



4 0116 4 
777777 
6 012 6 
2?1247 
1201 $V 
6 21'.64 
120. A 
6201 30 

5 4 1 7 (, 7 
60120? 
541706 
601204 
101365 
60117? 
201707 
741000 
201710 
040! i<? 
201306 
120100 
620132 
120106 
620130 
541711 
601222 
541712 
601221 
101365 
601211 
751000 
201713 
0401 12 
201323 
120100 
62013? 
120106 
620130. 

04 136? 
501714 

5 4 16 7 
601?37 
101365 

6 012 2 7 
201360 
501 701 
341715 
4 1 ? 4 3 
201361 
040111 
160126 
6 2 013 2 



/LOAD SYSTEM 
/TTY PiPUT 
S Y ? U M 



PARAMETERS VIA 



; .YSpU 



SYSTM2 



XCT 




L AW 


-1 


DAC» 


TTYFLG 


LAC 


SYSTEX 


JM^e 


TYPTEX 


JMP* 


S v STEm 


JMS« 


WKYRD 


JMP» 


TTYPIS 


SAP- 


(265 


JMP 


. +5 


SAP 


(266 


JMP 


. +5 


JMS 


PTYQES 


JMP 


SYSTEM+6 


L AC 


(6? 


SKP 




I AC 


(74 


OAC 


CYCLEK 


LAC 


PAPITY 


JMS« 


■ TYPTEX 


JMP« 


■ LSTKEY 


JMS* 


■ WKYBO 


JMP« 


■ TTYDIS 


SAP 


(331 


JMP 


. +6 


SAD 


(316 


JMP 


. *3 


JMS 


PT V QE S 


JMP 


SYSTM1 


CLA! 


SKP 


LAC 


(400007, 


OAC 


APIENA 


LAC 


M E MTEX 


JMS» TYPTEX 


JMP» LSTKEY 


JMS» WKYBO 


JMP» TTYDIS 


OAC 


SAVMF M 


AND 


(3 74 


SAO 


(260 


JMP 


, + 7 


JMS 


PT V QES 


JMP 


SY-TM2 


LAC 


SAVMEM 


AND 


( 3 


TAD 


(LAC MEMTBl. ) 


OAC 


, + 1 


LAC 


MEMTRL 


OAC 


UPCORE 


OZM* TTYFLG 


JMP* LSTKEY 



/SET TTY ACTIVE 

/TYPE HDR 
/EXIT 

/SET UP WAIT KYBO 
/DISMISS TTYFLG 
/RC TU AC = CHAR TYPED 

/50 CYCLE POWER 



/60 CYCLE POWER 
/INVALID NOT 5 OR 6 
/TRY AGAIN 
/62=50 FOR 50 CYCLE 

/60 EOR 60 CYCLE 

/GET API SELFCT 

/OISMISS KPO FLG 
/SET UP WAIT KPO 
/DISMISS TTYFLG 

/YES USE API 

/YES USE PIC ONLY 
/INVALID KEY 
/TRY AGAIN 
/AC=0 NO API 
/API ENAPLE PIT 

/TYPF MEM SELECT 



/Y 
/N 



/DISMISS KBO 
/SET UP WAIT KBO 
/DISMISS TTY 
/SAVE ChAR 

/MASK 

/NUMBER TO 3 
/YES 

/INVALID KEY 
/TRY AGAIN 
/GET CHARACTER 
/MASK 0-1-? OR 3 

/GET UP CORE INST 

/TO EXECUTE 

/GET UP M£M LIMIT 

/CLR TTY ACTIVE 
/DISMISS LAST KEY 



' t - y f c 



PAGE ? 1 



.EJECT 



•'fTFXFC 



C PAGE 


22 


01 247 


001250 


01 250 


064241 


01 251 


25161? 


01252 


462130 


01253 


352100 


01254 


51663? 


01255 


35221? 


0i 256 


46501? 


01 257 


040644 


01260 


406330 


01261 


552212 


01 262 


512461 


01263 


505000 


01264 


52263? 


01265 


042500 


01266 


446344 


01267 


032500 


01270 


432372 


01271 


220152 


01272 


301011 


01273 


751100 


01274 


331010 


01 275 


647644 


01276 


201546 


01277 


020206 


01 300 


546071 


01301 


442500 


01 302 


50237? 


01303 


742644 


01 304 


203760 


01305 


000000 


01 306 


001307 


01307 


064250 


01 310 


150222 


01311 


266624 


01312 


043236 


01313 


511013 


01 314 


142646 


01315 


202344 


01316 


043236 


01317 


511011 


01320 


6 4 7 5 00 


01321 


774000 


01322 


000000 


01323 


001324 


01324 


064252 


0i3?5 


3 4 2 6 30 


01326 


4 2 6 7? 


313 2 7 


420?3? 


0i 330 


426331 


0-331 


7 512 6? 


01332 


6 4 ? 4 * 



SYSTEX 



".ASCII <15><12X12> , SELECT SYSTEM PARAMETERS • <15><1 2> 



.ASCII 'TYPE In 5 F r 50 OR 6 f"OR 60 CYCLE POWER <<177> 



/ 

PAPITX 



.+1 
.ASCI I 



<15><12>'API-Y FOR YES N FOR NO '<177> 



/ 

MEHTFX 



'ASCII <15><1?> 'SELECT MEMORY • <15><12> • FO' 



• t i x r c 



D Af-f ?3 



{"1333 
"• 3 3 4 
0- 335 
0" 336 
0' 337 
? - 3 4 
3 ' 3 M 
•■' ' 3 4 2 
'■■ " 3 4 3 

" 3 4 4 
2' 345 

01 346 

1 3 4 7 
3i 350 
01351 
01 352 
01 353 
01354 
0i 355 
01 356 
0"357 
01 360 

' 3 M 
0*362 
01 363 
01 364 

0*365 
/■ 1 3 6 6 
013 6 7 
01 370 
013 71 



0?0?14 

4 7 4 " 
000! , 00 
51 100 7 
04543P 
0514J4 
4 3 2 3 * 

5 1 1 ,' '■ 
13 3 2 26 
06424^ 
220214 
476444 

0311 50 
4 5 4 3 21 
247644 

2 014 6 4 

043236 
51 1006 

3 312 2 6 
201017 
700000 
000000 

017 7 7 7 
3 7 7 7 7 
057777 
077777 

40136"? 
201^51 
120! 20 
6201 7? 

6 213 6 5 



SAVhEH 

/ 

M E M T 9 L 



/ 
PTYQES 



.ASCII 'R IK • <I5><12> ' 1 FQP 1 6K • < 15 >< 1 2 > ' 2 F 



.ASCII 'OR 24K' <l5><12>-nR 3 F 0R 32K '<177> 



17777 
37777 
57777 
77777 



/8K 
/16K 
/24K 
/32K 



XCT , 

LAC TYOUES 
JMSo TYpTEX 
JHF« LSTKEY 
JMP* PTYOES 



•EJECT 



■ T ; ~ X f C 



f'AGt 



,"1372 


> ', 1^73 


;*. - * "> t 


■ 4 1 


• 3 7 4 


7.-1' i- 


• 3 7 5 


5 1 6 ■ " ! ' 


'376 


2 4 6 " • ' 


0- 37 7 


2 2 4 5 j 


/' 4 00 


4 4 14 ■' " 


/ - 4 i 


3 H 2 - : • ■ 


* 4 2 


; '. .' '. 


.5 ■ .4 3 


2 2?" 


', 4 4 


6 2 2 5 ••' 


31 405 


44633S 


01 406 


500^0" 


01 407 


06425? 


01 410 


744212 


01411 


4 71012 


01 412 


444632 


31 413 


425011 


01 41 4 


151=00 


0-415 


5l2i 30 


01416 


1 4 16 2 


01417 


40610- 


01 420 


'.'4263 4 


01 4?i 


4 6 5' 


01 422 


4 4 ? - y 


01 423 


5 1 2 ^ * ? 


0- 424 


3064^4 


0" 4?5 


5?223" 


0« 426 


542=00 


-427 


7 7 4 2 


0i 430 





0M31 


00l 4 32 


0i 432 


064241 


0-433 


252222 


014 3 4 


466124 


0-435 


7 7 4 


0i 4 36 


0014 37 


- 4 3 7 


6 4 2 4" 


* 4 4 


" 4 2 ? * 


4 ~ 442 


4 4 J r 4 - 


0*443 




0- 444 


1 " 1 ~ -' 


01 4 4 5 


4 4 2 - ? " 


0-446 


*- 4 3 -, ,.' 


- 4 4 7 


5 26417 


0* 450 


7 000 00 


''451 


001452 


0i 452 


375004 


014 5 3 


7 7 4 p 



I "T - X 



;>'Di?4-i F c T r • <- 1 "^ > 



,«-•:' i < 1 2 ■> ' T Y : 



.ASCII <15X12>M-.hF n T IMF Is pF.ACHFJO FnjABLE RTC'<15X12> 



.ASCI I <T I -<E ' <1 77> 



.ASCII <1 5X12X' 2> ' T [ME ' < 1 7 7 > 



:hmgtx . +1 

,jc c |] ( x = >< - : "><12> '0 r V TFST 13 Hi NO UF'<177> 



tyouf; 



.ASCII <077><40><40><177> 



1 T -" X F C 



PAGE 25 



00001 
00001 

00002 

00003 

01 46l 
01 461 
0M62 
01 463 
01 464 
01 465 
01 466 
01 467 
01 470 
314 71 
01 472 
0-> 473 
01 474 
01 475 
01 476 
01 477 



0i 500 



01501 
01502 



70770? 
620003 
001461 



700001 
741000 
601503 
700301 
741000 
601527 
700401 
741000 
60154? 
700101 
74 1 000 
601555 
700201 
741000 
601601 



621501 



00150? 
74 4 



/ 

/MTE 
/STA 
/FOR 
/TFS 
/TES 
/ALL 
/W!L 
/The 
/LAs 
/LAS 
/ 

/FLs 
/rUT 

/FOR 

/ 

V ! H r f 



XEC - TAPE 4 

NDAHO PROgP* m INTERRUPT hANDLE r 

random exercisers op any peripheral 
t that may want to run a processor 
t as a 8ackg s 0unp jop 

program labels on this t a pe 
l contain at least 1 x 

TAPf HAS AM eNd STAT E '-«e\'T AS THE 
T COMMAND ANO M AYBE UsEC As THF 
T TAPE OF YOUR ASSEMBL V 

GS MUST RE CLEARED OUTSIDE THESE ROUTINES 
AC AND aODRFSS ff . A RE S A VED EXCEPT 
ANY OPTIONAL DEVICE 



/OET 
XFNO 



FRM 
FL 



/THE 

/BY 

/EIT 

/SKI 

/YOU 

/STO 
/SKI 
XDFV 



ST 
«Ki 

^ER 

P r 

R P 

°E 
P I 
FL 



.LO 

JiHP 
XFN 

1 NE WM 
.LO 
CLS 
SKP 
JMP 
KSF 
SKP 
JMP 
TSF 
SKP 
JMP 
RSF 
SKP 
JMP 
PSF 
SKP 
JMP 

A N D A B D 

P IOTS 
FOLLO 

-A IN p 

ROGRAM 
JMP 

THE A r . 

GTS IN 
.+1 
HLT 



/rNTf-R E* t ENd m E PIE 
* .+1 /F! N D OUT WlCH ImtEr 

DEL 

ICH FLAG CAUSED PROGRAM INT 
C TYQUES+10 
F 

XCLKFL 



XKPQFL 



XTTYFL 



XPTRFL 



XPTPFL 

PDP-9 FLAGS HAVE BEEN TESTED 
AND DO NOT=l 
W THE STRING w]Th YOUP OWN 

y having it<= tape foited or 
should sto-e the aoopess of the chain 

* XDEVFL 

DRESS OF OPTIONAL DEVICE 
THIS NEXT ADDRESS 



IN XDEVFL 



/IN CASE YOU DONT 
/MODIFY CONTENTS OFF 
/XDEVFL 



.EJECT 



"UFXFC 
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01503 

01 504 
01505 
31 506 
01507 
31510 
01511 
01512 
01513 



0i 514 
01515 



01 516 
01517 
01520 
01521 
01522 
01523 



01524 
01525 
01526 



041514 
200000 
601*11 
401506 
04151 * 
75000a 
341614 
041515 
621516 



000000 
401515 



401516 
201514 
44151? 
601524 
703344 
621506 



700042 
703344 
621515 



PROCESS CLOCK INTERRUPT 

EITHER FROM PIE OR API 

IF API ON 51 SHOULD=JMS XCLAPI 



XCLKFL DAC XCLKAC 

LAC 

JMP .+4 

XCLAPI XCT , 

OAC XCLKAC 

CLA 

TAD XMIN1 

OAC XCLKPC 

JMP« XCLKPR 



/SAVF ACCUMULATOR 

/GET INTER ADDRESS 

/SUB 1 AND SAVF IT 

/IN CASE PIE GOES CONFUSED 



IT has BEEN DETERHINED THAT CLOCK FLAG = 1 

AC AND PC HAVE REEN SAVFQ 

THE CONTENTS OF XCLKPR MUST CONTAIN 

THE ADDRESS OF YOUR ROUTINE TO ACTUALLY 

PROCESS THE CLOrK FLAG 



CLKAC 
CLKPC 



XCT 



OF KRFAK FROM CLOCK FLAG ROUTINE 

ENTERED EITHER «Y JMP XCLKPR*! OR JMS XCLKPR 

P 1 K P ft XCT 

LAC XCl KAC /GET SAVED ACCUMULAPOR 

IS? XCLKPC /ENTERED6Y A 5> I 

JMP .+3 /NO FROM PIE 

08R 

JMP« XCLAPI 

IF OERREAK ROUTINE IS ENTERED BY A 

JMS TO XCLKPR THE NEXT CLOCK INTERRUPT 

WILL RETURN TO THE JMS +1 

CLOCK FLAG SHOULD BF CLEARED OUTSIDE 

OF THIS ROUTINE 



ION 

DBR 

jMP* XCLKPC 



.EJECT 



<T'"XFC 



PACK ?7 



/XKBDFL IT HAS BEEN HETERMINED THAT THE 

/KEYBOARD FLAG IS SET 

/SAVE THE AC AND THEN GO TO PROCESS 



0' 


i 527 


41533 


0" 


!530 


200P00 


0- 


'531 


041534 


Zi 


53? 


6?l535 



XKBOFL 



DAC XKRDaC 
|_ AC 

DAC yKRQPC 
JMP* XKBDPP 



/SAFE THE AC 
/ G ET ADDRESS 
/SAVE FOR K Y BD 



DBK 



/PROCESS KEYBD FLAG 



/KEVg0 4 Pn FLaG - 1 AC AND PC H A VE BEEN SaVED 



31 533 


000000 


XKBDAC 





01534 


401534 


XkrDPC 


x"t • 


0i 535 


401535 


xKHDpR 


01 536 


201533 




LAC XKBDAC 


01537 


70004? 




ION 


01 540 


703344 




OBR 


01 54i 


6?l534 




JMP, XKBDPC 



01542 
01 543 
01544 
01545 

01546 
01 547 
01 550 
01551 
01552 
01553 
01554 



041547 
200000 
041546 
621550 

401546 
0000 00 
401550 
201547 
70004? 
703^44 
6?1546 



/RETURN FROM TTY INT 
/ 

/ofb r Eak from kex80aRd flag can be entered 

/EIThEP BY JMS XKBDPR OR JMP XKBOPR+i 
/IF ENT£R ED pY jm S NfxT KEYgOARQ FLAG 
/WILL PETURN TO JMs +1 CLEARING OF THE 
/KFYROARO FLAG MUST OCCUR OUTSIDE THIS ROUTINE 
/ 

/teletype printer flag = ! 

/Save ax and pc go to routine to process flag 



XTTYFL 



/ 

XTTYPC 
XTTYAC 
XTTYPR 



DAC XTTYAC 
LAC 

DAC XTTYPC 
JMPo XTTYPR 

XCT , 



XCT . 

LAC XTTYAC 

ION 

DBR 

JMPo XTTYPC 



/SAVE AC CONTENTS 
/AND INTERRUPT 
/ADDRESS IN 
/PROCESS FLAG 



.EJECT 



U - X F c 



: 'AGE 







/ c / p "4 


T ;pF rfa;hr Fl ft 






/Sii' : 


C AC - X >RCCtS 


> i e; e; £ 


!!•=(' 


V i 1- -' u 


r jA r XPTRAC 


?' 5^6 


■ '• " 




L AT 


''557 


~ ;m ^ ^ •* 




JMt . +4 


/'56 


4 1 - * 7 


i = - A ■- I 


XCT , 


?. i 5^1 


.?. 4 I - 6 * 




OAT XPTRAC 


- 5 6 2 


7 = / 




c l a 


01 563 


3 4 1 * 1 4 




TAD X M I N 1 


', 5 6 4 


4 1 =• 6 7 




PAT XPTRPC 


01565 


6 21=1"' 


/ 

XPTPAC 


jmp« XPTRPP 


01566 








01 567 


4 1=67 


XPTRPC 


XCT . 


01 570 


4 01=70 


X P T R P R 


XCT . 


01571 


201=66 




LAC XPTRAC 


01572 


4 4 15 6 7 




IS? XPTRPC 


01 573 


601^74 




J M P . + 3 


01 574 


7 03344 




P.PP 


31575 


* ?l c 60 





JMP» X^Ra p ' 







/RFA0E" 


SNTEPRUP- hAS 


3'576 


7 2 4? 




!ON 


01 577 


7 7 7 4 <i 




nap 


01 600 


6 2 1 = 6 ^ 





jmf» x°TRPr 








0PAPFR 


TaPE PUNCH FLAC 






/save: 1 


;MEPRUPT AND p ( 


01601 


4 1 A f. t 


/ 
ypTprL 


DAC XPTPAC 


01602 


2 




LAC 


1 6 3 


0i : ~0 = 




OAC XPTPPC 


0i 604 


f 7 16 07 


/ 

XPTPPC 


JMPo XPTPPR 


01 60- 


4 .7 1 f. 5 


XCT . 


01 606 


00":' 00 


YPTPiC 





0- 607 


1 : •■ 7 


X - T PPR 


XCT . 



/SAVE AC F = C M ppo INT 
Xf-ET APOPESS 
/-I AND SAVE IT 
/ F NTrP r D HERE BY API 

/SO SkP AT I S2 FOR API 
/SO SKP 'T ]SZ ECR »°i 
/ADDRESS -1 OR AC = -1 

/SAVE FOR DBR ROUTINE 



/AC AT INTERRUPT 



/GET AC AT INTERRUPT 

/API INTFRPUPT 

/NO 

/API DO NOT ION 

/GO PACK TO PROCESSING 



- NOT API 
/TURN INTERRUPTS ON 
/TO RESTORE LINK 
/EXIT 



<PTPAC 



1 1 n : 



x o T P P ' 



. E . E C T 



' T F X F C 



PAGE 29 



/A HALT AT 0\'E O r THF FOLLOWING LOCATIONS 
/INDICATES THAT AN API ACR IS INCORRECT 



J?1615 


401^ It 


0-616 


7 4 4 


01617 


7 4 00 4 


01 620 


740040 


3-621 


740040 


01622 


740040 


0-623 


740040 


0' 624 


740040 


01 625 


740040 


0- 626 


740040 


0-627 


7 4 00 4 


01630 


740040 


01631 


740040 


01632 


740040 


0-633 


740040 


01 634 


740040 


01635 


740040 


01 636 


7 4 4 


01 637 


740040 


016 4 


7 4 040 


01 641 


740040 


01642 


740040 


31 643 


740040 


01 644 


74004"* 


01 645 


740040 


016 4 6 


7 4 4 


01647 


740040 


01 650 


740040 


3-651 


740040 


01 652 


740040 


01653 


740040 


01654 


740040 


01655 


740040 



API4E 



XCT 
HLT 

HIT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 



/API 

/41 

/42 

/43 

/44 

/45 

/46 

/47 

/50 

/51 

/52 

/53 

/54 

/55 

/56 

/57 

/60 

/61 

/62 

/63 

/64 

/65 

/66 

/67 

/70 

/71 

/72 

/73 

/74 

/75 

/76 

/77 



XCT 40 IN E R R 



.EJECT 



u - x r c 



D AG£ 



30 



a :•' 4 




4 


101*1= 


00041 


i?U' - 


5 f ■ 4 2 


101*17 


00043 


10 16 2:' 


V 4 4 


1 1 6 2 • 


4 5 


101*2? 


4 6 


101*23 


00047 


1016 2 4 


00050 


10162* 


00051 


101*76 


00052 


1 1 * 2 7 


0^053 


101*30 


00 054 


101631 


00055 


101632 


00056 


101633 


00057 


101*34 


00060 


101635 


00061 


101636 


00062 


101*37 


00 063 


101640 


[' 6 4 


101*41 


00065 


101*42 


00 066 


101*43 


30067 


101644 


00070 


101645 


00071 


101646 


00072 


1016 4 7 


00073 


101650 


00074 


101651 


00075 


10165? 


00076 


1016 5 3 


00077 


101654 



/Tl-fc FOLLOWING J M S INSTRUCTIONS FILL API LOCATIONS 
.LPC 40 
JMS A P I 4 
J H c A P I 4 + 1 
JMS A p I 4 + 2 
JMS API40+"< 
jM c AP I 40* 4 
JMS API40+5 
JMS A P I 4 + A 
JMS API40+7 
JMS A P I 4 + 1 
JMS A P I 4 + 1 1 
JMS API40+12 
JMS API40+13 
JMS A P I 4 + 1 4 
JMS API40+15 
JMS API40+16 
JMS A P ! 4 + 1 7 
JMS API40+20 
JMS AP>40+?1 
JMS APU0 + 22 
JMS API40+23 
JMS A P ! 4 + ? 4 
JMS API40+25 
JMS API40+26 
JMS API40+27 
JMS API 40 + 30 
JMS API40+31 
JMS API40+32 
JMS API40+33 
JMS API 4 + 34 
JMS API40+35 
JMS API4 0+36 
JMS API40+37 
.EJECT 



■t- xfc 



page 





'■' P 






'•• 6 C 6 


017 7 7 7 


»L 


T 


"6-7 


" 2 ■* 


«'. 


T 


0i 660 


000" ! 2' ! 


it L 


T 


3-661 


000 H 3 


0'. 


T 


0' 66? 


757777 


*L 


T 


3 '6 6 3 


000107 


, : 


T 


.31664 


000^2 E 


»•- 


T 


0i 665 


000700 




T 


0" 666 


000' 77 


:• - 




0' 667 


000 7 07 


■* : _ 


T 


0- 670 


000 7 6 


,- . 




01671 


c 7 


y '- 


T 


01672 


7 7 7 7 6 6 


5 •- 


T 


0<673 


00001? 


ft L 


T 


0i 674 


000360 


o'- 


T 


01 675 


1015 6 


*L 


T 


016 7 6 


740000 


»!. 


T 


0i 677 


700001 


»'- 


T 


01 700 


000265 


a L 


T 


01 701 


3000 9"' 


* L 


T 


01 702 


010 4 7 


«L 


T 


017 3 


000001 


»L 


T 


01 704 


000263 


-> L 


T 


0< 705 


2 


»L 


T 


01 706 


5 6 6 


L 


T 


01 707 


00006? 


»L 


T 


01710 


000074 


*L 


T 


01711 


000331 


sl- 


T 


01712 


000316 


ot 


T 


01 713 


400'0S' 


«L 


T 


01 714 


3 7 4 


»L 


T 


01 715 


201361 


»l. 


T 



.END 



NO ERROR LINES 



•; T - X F c 



P4GE 32 



a P I E M A 
■ip I 40 

J A I. D I R 

■.;lt 

; L -f K q o 
.:l q f 
;m^ptr 
jy.:lfk 

JC-ARl 
JC^AR6 

) e ^ f i g 

j E V H N G 
)E V I NjT 

JE'^STR 
JEVTFS 
JH\GTX 
-:AeTFS 
EXECI P 
£XFCTV 
.ETBTK 
iETCAL 
jETCHR 

>;etdfv 
:;etkfy 
jETmre 

i>ETRA\ 
'•,ETRNM 
>FTSYS 
iTTIME 
;TTIM4 
-O.'R 
! - Al T 

< *n 1 s 

<» '-TFS 



^Y-RFT 
'-F-<AI F 
LSTKFY 
•tF'T-L 
< r v r r x 

•' ! . u l> 
,i] r -., I 

. U '. -f 4 R 
■J - A t R 

■ a ; rtt 

- A - I TX 



'I NT 
TFS 



30112 
01615 
00324 
7 3 2 / 4 
7 3 4 4 
30210 
302 = 1 
730001 
30426 
30110 
30563 
00570 
0011 4 
30144 
00133 
00143 
00113 
01436 
00123 
00212 
00200 
00411 
30323 
00374 
00115 
00574 
00417 
00342 

30325 
30122 
00604 
00616 
00703 
00235 
00131 
00127 
73031 2 
700301 
30600 
30424 
013 2 
013*1 
31323 
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